;;;QQ:67762207
[@HairControl]
{
#SAY
ӭ귨ݵ꣡Ҫʲô\
<ͷȾɱɫ/@ChangeHairColor> \
<뻻͡/@ChangeHairShape> \
</@exit>

[@ChangeHairColor]
#SAY
ѡͷɫ\\
<ɫȾɫã5000ң/@HairColor(ɫ,255,255,255,5000)> \
<ɫȾɫã5000ң/@HairColor(ɫ,60,60,60,5000)> \
<ɫȾɫã5000ң/@HairColor(ɫ,170,170,170,5000)> \
<ɫȾɫã10000ң/@HairColor(Random,0,0,0,10000)> \
<ǰһ/@main>

[@ChangeHairShape]
#IF
gender man
#SAY
ı䷢͵ķΪ {FCOLOR/10}10000{FCOLOR/12}ѡ͡\\
<ͷ/@HairShape(ͷ,0)> \
<鷢/@HairShape(鷢,1)> \
</@HairShape(,2)> \
<̷/@HairShape(̷,3)> \
</@HairShape(,4)> \
<ɢ/@HairShape(ɢ,5)> \
<ǰһ/@main> \
#ELSESAY
ı䷢͵ķΪ {FCOLOR/10}10000{FCOLOR/12}ѡ͡\\
<ͷ/@HairShape(ͷ,0)> \
<緢/@HairShape(緢,1)> \
</@HairShape(,2)> \
<̷/@HairShape(̷,3)> \
<β/@HairShape(β,4)> \
</@HairShape(,5)>\
<ǰһ/@main>

[@HairColor()]
#IF
#ACT
Mov A0 %ARG(1)
Mov D0 %ARG(2)
Mov D1 %ARG(3)
Mov D2 %ARG(4)
Mov D3 %ARG(5)

#IF
Equal A0 "Random"
CheckGold %D3
#ACT
take  %D3
hairrndcol
break
#SAY
ͷȾˣ \\
֧<$OUTPUT(D3)>ң<Ⱦɫ/@ChangeHairColor> \\
<⡣/@exit>

#IF
checkgold %D3
#SAY
ͷȾ{FCOLOR/10}<$OUTPUT(A0)>{FCOLOR/12}ˡ \\
< /@exit>
#ACT
take  %D3
haircolor %D0 %D1 %D2
break
#ELSESAY
ﶼȸѵġǮ󲻹\\
<ǰһ/@ChangeHairColor>

[@HairShape()]
#IF
#ACT
Mov A0 %ARG(1)
Mov D0 %ARG(2)

#IF
checkgold 10000
#SAY
͸ĳ{FCOLOR/10}<$OUTPUT(A0)>{FCOLOR/12}ˡи԰\\
< /@exit>
#ACT
take  10000
hairstyle %D0
break
#ELSESAY
ﶼȸѵġǮ󲻹\\
< /@exit>
}
;;;QQ:67762207